home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / sf40_a.arc / ALPHA.BAS (.txt) next >
Encoding:
GW-BASIC  |  1990-12-09  |  5.4 KB  |  153 lines
  1. 10   KEY OFF:CLS
  2. 11   SCREEN 1
  3. 13   COLOR 1,7
  4. 20  LOCATE 22,20:PRINT"PRESS A LETTER          <ESC> FOR MENU"
  5. 25  K3$=INKEY$:IF K3$="" THEN 25
  6. 26  IF ASC(K3$)=27 THEN CHAIN "TEST1",,ALL
  7. 30  L=ASC(K3$)-64:IF L>26 OR L<1 THEN CLS :PRINT"Set caps lock":FOR DL= 1 TO 1500+ZZ:NEXT:CLS:GOTO 20
  8. 40  ON L GOSUB 135,182,220,270,330,400,460,520,580,630,670,720,780,840,900,960,1020,1080,1140,2000,2060,3020,3080,4040,5000,5060
  9. 50  GOTO 20
  10. 135  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  11. 170   A1$="U3H3U6E1R2D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4E1R2D5G1L1H1F1R1E1"
  12. 172  A2$="U5E1R1F1D4G1L1H1F1R1E1F1H1U6R1F4D7G3D4"
  13. 175  A$=A1$+A2$
  14. 180  DRAW "C3":DRAW A$
  15. 181  RETURN
  16. 182  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  17. 185  B1$="U3H3U12E1R1F1D6U9E1R1F1D7U9E1R1F1D8U8E1R1F1D10"
  18. 186  B2$="R3L5F2R1D3U3L1H2R5F2D4G3D4"
  19. 190  B$=B1$+B2$
  20. 200  DRAW "C3":DRAW B$
  21. 205  RETURN
  22. 220  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  23. 230  C1$="U3H3U6E2R2F2D1G1H1F1E1U1H2U1E1R1F2D1G1E1U1H2E1R1F3D2G1L1H1F1R1E1U2H1F0R1F2D1L2G1L1G1D2"
  24. 240   C2$="R1F1R1E1U2R1F1D3G3D3"
  25. 245   C$=C1$+C2$
  26. 250  DRAW "C3":DRAW C$
  27. 260  RETURN
  28. 270  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  29. 280  D1$="U2H5U2E1R2D1F1R1E1U2H1L2G1D1L2H1U1E3R4F2G1E1U7E1R1F1D8F1D6G1D4"
  30. 290   D2$="          "
  31. 300   D$=D1$+D2$
  32. 310  DRAW "C3":DRAW D$
  33. 320  RETURN
  34. 330  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  35. 340   E1$="U3H3U6E1R2D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4E1R2D5G1L1H1F1R1E1"
  36. 350  E2$="U5E1R1F1D4G1L1H1F1R1E1F2L7F2R1L1H2R7D4G3D3"
  37. 360   E$=E1$+E2$
  38. 370  DRAW "C3":DRAW E$
  39. 390  RETURN
  40. 400  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  41. 410   F1$="U1H1U3H4U2E2R1D1G1D1F1U2E2R1D1G1D2F1U3E3R1D2G1D2F1E3R2F2D1L3G1D2F1R1"
  42. 420  F2$="E1U2R2D3G3L1G2
  43. 430   F$=F1$+F2$
  44. 440  DRAW "C3":DRAW F$
  45. 450  RETURN
  46. 460  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  47. 470    G$="U2H2U1H1L3H1U2R4E1U1H1L4H1U2R9  F6D3G2D3
  48. 500  DRAW "C3":DRAW G$
  49. 510  RETURN
  50. 520  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  51. 530    H$="U3H3R2E1U1L3D2U2R3E1U2L5D1F2H1R2L2U1U1L5H1U1R8L7H1U1E1R11F5G1L5G1D2F1R2L2H1U2E1R5E1F2D3G2D2
  52. 560  DRAW "C3":DRAW H$
  53. 570  RETURN
  54. 580  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  55. 590   I1$="U3H3U10E1R1F1D4E1R2D4G1L1H1U2D2F1R1E1U4E1R2D5G1L1H1F1R1E1
  56. 600  I2$="U4E1R1F1D3G1L1H1F1R1E1U1F2L7F2R1L1H2R7D4G3D2"
  57. 605   I$=I1$+I2$
  58. 610  DRAW "C0":DRAW "M 150,100":DRAW "C3":DRAW I$
  59. 620  RETURN
  60. 630  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  61. 631   I1$="U3H3U10E1R1F1D4E1R2D4G1L1H1U2D2F1R1E1U4E1R2D5G1L1H1F1R1E1
  62. 632  I2$="U4E1R1F1D3G1L1H1F1R1E1U1F2L7F2R1L1H2R7D4G3D2"
  63. 633   I$=I1$+I2$
  64. 635   DRAW "C0M150,100C3XI$;":GOSUB 9000:DRAW "C0M150,100XI$;":DRAW "M 150,150":DRAW "C3":DRAW I$:GOSUB 9000:DRAW "C0":DRAW "M 150,150":DRAW I$
  65. 640  DRAW "M 200,150":DRAW "C3":DRAW I$:GOSUB 9000:DRAW "C0":DRAW "M 200,150":DRAW I$
  66. 650  DRAW "M150,100C3":DRAW I$
  67. 660  RETURN
  68. 670  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  69. 680    K$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1 h3H5U1E1R1F6U7E1R1F1D7 D1    F3  R1L2H4L1G1D2F3H3U2E1R1F4R2F1D4G2D2
  70. 710  DRAW "C3":DRAW K$
  71. 715  RETURN
  72. 720  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  73. 730   L1$="U3H3U6E1R2D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4E1R2D5G1L1H1F1R1E1"
  74. 740   L2$="  U11E1R1F1D11F2R2E1R3D1G4L2d1g2d2
  75. 750   L$=L1$+L2$
  76. 760  DRAW "C3":DRAW L$
  77. 770  RETURN
  78. 780  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  79. 790   M1$="U3H3U6E1R2L1 H1R2D1D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4E1R2D5G1L1H1F1R1E1"
  80. 800  M2$="U5E1R1F1D4G1L1H1F1R1E1U3R2F2D3G2D2G3D3
  81. 810   M$=M1$+M2$
  82. 820  DRAW "C3":DRAW M$
  83. 830  RETURN
  84. 840  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  85. 850   N1$="U3H3U6E1R2       D2G1L1H1F1R1E1U3E1R2D4G1L1H1     F1R1E1 U1H2  R2D2U3E1R2D6G1L1H1U2D2F1R1E1"
  86. 860  N2$="U5E1R1F1D4G1L1H1F1R1E1U3R2F2D3G2D1G2D3
  87. 870   N$=N1$+N2$
  88. 880  DRAW "C3":DRAW N$
  89. 890  RETURN
  90. 900  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  91. 910  O1$="U3H3U6E2R2F2D1G1H1F1E1U1H2U1E1R1F2D1G1E1U1H2E1R1F3D2G1L1H1F1R1E1U2H1F0R1F2D1 D2L2U1H1G1L1G1D2"
  92. 920   O2$="R1F1R1E1U2R1F1D3G3D3"
  93. 930   O$=O1$+O2$
  94. 940  DRAW "C3":DRAW O$
  95. 950  RETURN
  96. 960  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  97. 970    P$="U3L1H3R2E1U1L3D2U2R3E1U2L5D1F2H1R2L2U1U1G5L1H1U1 E6R3L11H1U1E1R16F3L11F3R4F2H2L4H3R12F4D4G3D2":'G1E1F2D3G2D4
  98. 1000  DRAW "C3":DRAW P$
  99. 1010  RETURN
  100. 1020  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  101. 1030   Q$="U4  H2E2G2L2G1D2G1L1H1U4H1L1G1D5G1L1H1U9E4R10F5D10
  102. 1060  DRAW "C3":DRAW Q$
  103. 1070  RETURN
  104. 1080  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  105. 1090   R$="U2l1H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1h5u1e1r1f1u2e1r1f1d4h2f6l3g1d1f1r2l2h1u1e1r4f1d4g2d3
  106. 1120  DRAW "C3":DRAW R$
  107. 1130  RETURN
  108. 1140  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  109. 1150  S1$="U3H3U6E1R2D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4E1R2D5G1L1H1F1R1E1"
  110. 1160  S2$="U4E1R1F1D3G1L1H1F1R1E1U1F2L7F2R1L1H2R7D4G3D3"
  111. 1170  S$=S1$+S2$
  112. 1180  DRAW "C3":DRAW S$
  113. 1190  RETURN
  114. 2000  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  115. 2010  T1$="U3H3U6E1R2D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4          E1R2D5G1L1H1F1R1E1"
  116. 2020  T2$="U4H2R2D1 E1R1F1D3G1L1H1F1R1E1U1F2            D5G3D4"
  117. 2030  T$=T1$+T2$
  118. 2040  DRAW "C3":DRAW T$
  119. 2050  RETURN
  120. 2060  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  121. 2070   U$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1 h3U7E1R1F1D7U6e1r1f1d6  F3  l3g1d1f1r2l2h1u1e1r4f1d5g2d2
  122. 3000  DRAW "C3":DRAW U$
  123. 3010  RETURN
  124. 3020  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  125. 3030   V$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1 h3H5U1E1R1F6E6R1F1D1G5D1    F2  l4g1d1f1r2l2h1u1e1r5f1d3g3d3
  126. 3060  DRAW "C3":DRAW V$
  127. 3070  RETURN
  128. 3080  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  129. 3090  W1$="U2  H3U5r2f2g1l1h1f1r1e1h2          E1H4U1E1R1F4U5E1R1F1D5E5R1F1D1G5              F1  l3g1d1f1r2l2h1u1e1r4f1d5g2d2
  130. 4000  W2$="
  131. 4010  W$=W1$+W2$
  132. 4020  DRAW "C3":DRAW W$
  133. 4030  RETURN
  134. 4040  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  135. 4050   X$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1h2 u1e1r1f2d1g1l1h1f1r1e1u1u7e1r1f1 d1g1l1h1f1r1e1d6F2  l3g1d1f1r2l2h1u1e1r4f1d5g2d2
  136. 4080  DRAW "C3":DRAW X$
  137. 4090  RETURN
  138. 5000  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  139. 5010  Y1$="U3H3U10E1R1F1D4E1R2D4G1L1H1U2D2F1R1E1U4E1R2D5G1L1H1F1R1E1
  140. 5020  Y2$="U4E1R1F1D3G1L1H1F1R1E1U1F1r1u2e1r1f1d5g4d3
  141. 5030  Y$=Y1$+Y2$
  142. 5040  DRAW "C3":DRAW Y$
  143. 5050  RETURN
  144. 5060  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  145. 5070  Z$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1h2 u1e1r1f2d1g1l1h1f1r1e1u1u7e1r1f1               d7F2  l3g1d1f1r2l2h1u1e1r4f1d5g2d2
  146. 5080  DRAW "C0":DRAW "M150,100":DRAW"C3":DRAW Z$:GOSUB 9000:DRAW "C0":DRAW "M150,100":DRAW "C0"
  147. 5090  DRAW Z$:DRAW "M100,100":DRAW "C3":DRAW Z$:GOSUB 9000:DRAW "C0M100,100":DRAW Z$
  148. 6000  DRAW "M150,150C3":DRAW Z$:GOSUB 9000:DRAW "C0M150,150":DRAW Z$
  149. 6010  DRAW "M100,150C3":DRAW Z$::GOSUB 9000:DRAW "C0M100,150":DRAW Z$
  150. 6015  DRAW "M150,100C3":DRAW Z$:GOSUB 9000
  151. 6020  RETURN
  152. 9000  FOR DL=0 TO 1500+ZZ:NEXT:RETURN
  153.